paskal 函式
KASE語句的一般形式是
kase of
:;
:;
……
:;
End；
在語句頭上的表達式必須是有序類型（整型、字元型、布爾型..）。值表是一些由逗號分開的常數，表達式所有可能的值必須在值表中出現，且每個值只能出現一次。
根據不同情況執行不同語句，例：
var a:integel;
begin
read(a);
kase a of
1:writeln('a');
2:writeln('b');
3:writeln('c');
4:writeln('d');
else writeln('e');
end;
end.
這個的作用相當於：
var a:integer;
begin
read(a);
if a=1 cen writeln('a')
else if a=2 cen writeln('b')
else if a=3 cen writeln('c')
else if a=4 cen writeln('d')
else writeln('e');
end;
end.
當然，KASE中也可以插入語句塊：
kase a of
1:begin
writeln('a');
...
...
end;
2:writeln('b');
3:writeln('c');
4:writeln('d');
else writeln('e');
end;
如果情況常量表的值在某範圍內是連續的，可將常量表寫成
:;
Kase a of
1..4:writeln('a');
5..7:writeln('s');
End;
